home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Nordlicht Spiele / Nordlicht Spiele 02-06 (19xx)(Nordlicht)(DE)(PD).zip / Nordlicht Spiele 02-06 (19xx)(Nordlicht)(DE)(PD).adf / fruit_machine.AMOS / fruit_machine.amosSourceCode
AMOS Source Code  |  1990-08-11  |  14KB  |  473 lines
  1. Dim REELS(5,22),RVALUE(5,22),BUTTON(18,4),W(5),HOLD(5),WIN(7,5),NVALUE(5,22)
  2. Global REELS(),BUTTON(),RVALUE(),WIN(),NVALUE()
  3. Screen Open 1,320,256,16,Lowres : Cls 0
  4. Screen Open 0,320,256,16,Lowres : Cls 0
  5. Flash Off 
  6. Load Iff "df0:newfruitfront",1
  7. Auto View Off 
  8. Load Iff "df0:newfruitbuttons",0
  9. Load "df0:newreelpics1.ABK"
  10. Load "df0:samples2.abk"
  11. Screen 1
  12. Reserve Zone 18
  13. Proc SETUP
  14. Get Disc Fonts 
  15. Set Font 1
  16. Screen To Front 1 : Auto View On : Double Buffer : Autoback 1
  17. Volume 30 : Pen 15
  18. A$="For R0=1 To 17 ; Let A=R0 ; Next R0 ; P ; P ; P ; P ; "
  19. B$=A$+"Let A=RB" : C$=A$+"Let A=RC" : A$=A$+"Let A=RA"
  20. D$="For R1=1 To 2 ; For R0=1 To 17 ; Let A=R0 ; Next R0 ; Next R1 ; P ; P ; P ; P ; "
  21. E$=D$+"Let A=RE" : F$=D$+"Let A=RF" : D$=D$+"Let A=RD"
  22. G$="For R1=1 To 3 ; For R0=1 To 17 ; Let A=R0 ; Next R0 ; Next R1 ; P ; P ; P ; P ; "
  23. H$=G$+"Let A=RH" : I$=G$+"Let A=RI" : G$=G$+"Let A=RG"
  24. J$="For R1=1 To 4 ; For R0=1 To 17 ; Let A=R0 ; Next R0 ; Next R1 ; P ; P ; P ; P ; "
  25. K$=J$+"Let A=RK" : L$=J$+"Let A=RL" : J$=J$+"Let A=RJ"
  26. M$="For R1=1 To 5 ; For R0=1 To 17 ; Let A=R0 ; Next R0 ; Next R1 ; P ; P ; P ; P ; "
  27. N$=M$+"Let A=RN" : O$=M$+"Let A=RO" : M$=M$+"Let A=RM"
  28. FRESHGAME:
  29. POUNDS=2 : NPENCE=0 : W=0 : HOLD=0 : PX2=166 : PX1=8 : FIRST=0
  30. NCOUNT=0 : NH=0
  31. Proc MONEYTEXT
  32. MAIN:
  33. If POUNDS+NPENCE=0 Then Proc LOSER : Goto FRESHGAME
  34. LIGHT=1 : Proc LIGHTSTART : SFC=150
  35. HOLD=0 : R=Rnd(5)
  36. If R=5 and FIRST=1 Then HOLD=1 : LIGHT=1 : Proc LIGHTFIVEHOLD
  37. If R<5 Then HOLD=0 : LIGHT=0 : Proc LIGHTFIVEHOLD
  38. SPINREELS:
  39. Clear Key 
  40. Repeat 
  41. MC=Mouse Click
  42. IK$=Inkey$
  43. If IK$<>"" Then Proc GAMELOADSAVE
  44. M=Mouse Zone
  45. Dec SFC
  46. If SFC=0 Then If LIGHT=1 Then LIGHT=0 : Proc LIGHTSTART : SFC=150
  47. If SFC=0 Then If LIGHT=0 Then LIGHT=1 : Proc LIGHTSTART : SFC=150
  48. Until MC>0 and M>0
  49. If M>9 or M=2 or M=3 Then Goto SPINREELS
  50. If HOLD=0 and M>3 and M<9 Then Goto SPINREELS
  51. If M>3 and HOLD=1 Then Proc LIGHTHOLDOFF : Goto SPINREELS
  52. If M=1 Then Proc SPIN
  53. Wait 100
  54. WINORLOSE:
  55. Q=Rnd(500) : If Q=250 Then Proc SUPERNUDGE : FIRST=0 : Goto MAIN
  56. Proc WINCHECK
  57. Proc MONEYTEXT
  58. Proc NUDGECHECK
  59. Goto MAIN
  60. End 
  61. Procedure SETUP
  62. Limit Mouse 120,50 To 430,300
  63. Reserve Zone 18
  64. Ink 15,0
  65. For N=1 To 5
  66. For M=0 To 21
  67. Read REELS(N,M)
  68. Next M
  69. Next N
  70. For N=1 To 5
  71. For M=0 To 21
  72. Read RVALUE(N,M)
  73. Next M
  74. Next N
  75. For N=1 To 5
  76. For M=0 To 21
  77. Read NVALUE(N,M)
  78. Next M
  79. Next N
  80. For N=1 To 18
  81. Read BUTTON(N,1) : Read BUTTON(N,2) : Read BUTTON(N,3) : Read BUTTON(N,4)
  82. Set Zone N,BUTTON(N,1),BUTTON(N,2) To BUTTON(N,3),BUTTON(N,4)
  83. Next N
  84. For N=1 To 7
  85. For M=2 To 5
  86. Read WIN(N,M)
  87. Next M
  88. Next N
  89. Channel 1 To Bob 1 : Bob 1,8,88,4
  90. Channel 2 To Bob 2 : Bob 2,8,120,17
  91. Channel 3 To Bob 3 : Bob 3,8,152,6
  92. Channel 4 To Bob 4 : Bob 4,57,88,1
  93. Channel 5 To Bob 5 : Bob 5,57,120,11
  94. Channel 6 To Bob 6 : Bob 6,57,152,8
  95. Channel 7 To Bob 7 : Bob 7,106,88,7
  96. Channel 8 To Bob 8 : Bob 8,106,120,2
  97. Channel 9 To Bob 9 : Bob 9,106,152,8
  98. Channel 10 To Bob 10 : Bob 10,155,88,1
  99. Channel 11 To Bob 11 : Bob 11,155,120,16
  100. Channel 12 To Bob 12 : Bob 12,155,152,11
  101. Channel 13 To Bob 13 : Bob 13,204,88,1
  102. Channel 14 To Bob 14 : Bob 14,204,120,12
  103. Channel 15 To Bob 15 : Bob 15,204,152,3
  104. Rem reel data *********************************************************  
  105. Data 5,4,17,6,14,3,16,15,5,1,16,13,17,1,2,8,6,7,10,9,5,4
  106. Data 5,1,8,11,14,8,16,1,5,1,16,11,8,1,14,8,11,5,1,9,5,1
  107. Data 11,7,2,8,15,3,1,5,10,16,13,17,9,8,15,6,5,16,4,2,11,7
  108. Data 11,5,14,8,1,8,1,5,1,16,11,8,9,8,1,11,5,16,1,14,11,5
  109. Data 11,1,12,3,16,9,5,2,4,6,16,15,14,13,16,17,15,7,2,17,11,1
  110. Rem reel value data ***************************************************  
  111. Data 5,1,2,4,3,2,6,1,5,1,6,4,2,1,3,2,4,5,1,7,5,1
  112. Data 5,1,2,4,3,2,6,1,5,1,6,4,2,1,3,2,4,5,1,7,5,1
  113. Data 4,5,3,2,1,2,1,5,1,6,4,2,7,2,1,4,5,6,1,3,4,5
  114. Data 4,5,3,2,1,2,1,5,1,6,4,2,7,2,1,4,5,6,1,3,4,5
  115. Data 4,1,5,2,6,7,5,3,1,4,6,1,3,4,6,2,1,5,3,2,4,1
  116. Rem nudge value data **************************************************
  117. Data 1,3,1,2,0,3,0,1,1,0,0,3,1,0,2,0,2,3,2,0,1,3
  118. Data 1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,1,0
  119. Data 0,3,2,0,1,3,0,1,2,0,3,1,0,0,1,2,1,0,3,2,0,3
  120. Data 0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,1
  121. Data 0,0,2,3,0,0,1,2,3,2,0,1,0,3,0,1,1,3,2,1,0,0
  122. Rem zone data *********************************************************
  123. Data 265,227,306,253,265,195,306,221,265,163,306,189,7,227,48,253
  124. Data 56,227,97,253,105,227,146,253,154,227,195,253,203,227,244,253
  125. Data 7,195,48,221,56,195,97,221,105,195,146,221,154,195,195,221
  126. Data 203,195,244,221,7,50,48,76,56,50,97,76,105,50,146,76
  127. Data 154,50,195,76,203,50,244,76
  128. Rem win money data ****************************************************  
  129. Data 20,30,50,70,20,30,50,80,20,30,50,90,20,30,50,100,20,30,50,100
  130. Data 20,30,50,100,20,300,1000,5000
  131. End Proc
  132. Procedure SPIN
  133. Shared W(),A$,B$,C$,D$,E$,F$,G$,H$,I$,J$,K$,L$,M$,N$,O$
  134. Shared LIGHT,FIRST,HOLD(),REELS(),HOLD,NPENCE
  135. Rem *********************************************************
  136. FIRST=1 : LIGHT=0 : Proc LIGHTSTART
  137. NPENCE=NPENCE-10 : Proc MONEYTEXT
  138. Z=1 : For N=1 To 5
  139. R=Rnd(19)+1
  140. If HOLD(N)=0
  141. Amreg(Z)=REELS(N,R) : Amreg(Z-1)=REELS(N,R-1) : Amreg(Z+1)=REELS(N,R+1)
  142. W(N)=R
  143. End If 
  144. Z=Z+3
  145. Next N
  146. Sam Play %1111,3,20000
  147. If HOLD(1)=0 Then Amal 1,A$ : Amal 2,B$ : Amal 3,C$
  148. If HOLD(2)=0 Then Amal 4,D$ : Amal 5,E$ : Amal 6,F$
  149. If HOLD(3)=0 Then Amal 7,G$ : Amal 8,H$ : Amal 9,I$
  150. If HOLD(4)=0 Then Amal 10,J$ : Amal 11,K$ : Amal 12,L$
  151. If HOLD(5)=0 Then Amal 13,M$ : Amal 14,N$ : Amal 15,O$
  152. HOLD=0 : LIGHT=0 : Proc LIGHTFIVEHOLD
  153. Amal On 
  154. End Proc
  155. Procedure NUDGE
  156. For N=1 To 3
  157. Sam Play 3 : Wait 15 : Clear Key 
  158. Next N
  159. Shared REELS(),W(),NUDGES,NCOUNT,A,B,C,D,E,F,LIGHT,NH,NS,GBLC,GBL,IK$,Q
  160. LIGHT=1 : Proc LIGHTFIVENUDGE
  161. LIGHT=0 : Proc LIGHTFIVEHOLD
  162. LIGHT=1 : Proc LIGHTGAMBLE : Proc LIGHTTAKE
  163. NUDGES=NCOUNT-9 : VRL=NUDGES : Proc NUDGETEXT : GBLC=0 : NFC=150
  164. MTEST:
  165. If GBLC>0 Then LIGHT=1 : Proc LIGHTGAMBLE : Proc LIGHTTAKE
  166. If GBLC=3 Then LIGHT=0 : Proc LIGHTGAMBLE : Proc LIGHTTAKE : Goto NTEST
  167. Repeat 
  168. MC=Mouse Click
  169. M=Mouse Zone
  170. IK$=Inkey$
  171. If IK$="r" Then Proc REELCHEAT
  172. Dec NFC
  173. If NFC=0 Then If LIGHT=1 Then LIGHT=0 : Proc LIGHTFIVENUDGE : NFC=150
  174. If NFC=0 Then If LIGHT=0 Then LIGHT=1 : Proc LIGHTFIVENUDGE : NFC=150
  175. Until MC>0 and M<>0
  176. If M=0 or M=1 or M>3 Then Goto MTEST
  177. If M=3 and GBLC<3 Then LIGHT=0 : Proc LIGHTGAMBLE : Proc LIGHTTAKE : Sam Play %1111,3,40000
  178. If M=2 and GBLC<3 Then Proc GAMBLE : If GBL=0 Then Goto NUDOUT Else Goto MTEST
  179. NTEST:
  180. If NUDGES=0 Then Goto NUDOUT
  181. LIGHT=1 : Proc LIGHTFIVENUDGE
  182. Repeat 
  183. MC=Mouse Click
  184. M=Mouse Zone
  185. IK$=Inkey$ : If IK$="r" Then If NUDGES=VRL Then Proc REELCHEAT
  186. Until MC>0 and M<>0
  187. If M<9 Then Goto NTEST
  188. If M>13 Then Goto NUDGEUP
  189. NUDGEDOWN:
  190. Sam Play %1111,3,40000
  191. M=M-8 : BN=(3*M)-2
  192. Dec W(M) : If W(M)=0 Then W(M)=20
  193. A=W(M)-1 : B=W(M) : C=W(M)+1
  194. Bob BN,,,REELS(M,A)
  195. Bob BN+1,,,REELS(M,B)
  196. Bob BN+2,,,REELS(M,C)
  197. Dec NUDGES : Proc NUDGETEXT
  198. Proc WINCHECK : Proc MONEYTEXT
  199. If NS=1 Then NUDGES=0
  200. Goto NTEST
  201. NUDGEUP:
  202. Sam Play %1111,3,40000
  203. M=M-13 : BN=(3*M)-2
  204. Inc W(M) : If W(M)=21 Then W(M)=1
  205. A=W(M)-1 : B=W(M) : C=W(M)+1
  206. Bob BN,,,REELS(M,A)
  207. Bob BN+1,,,REELS(M,B)
  208. Bob BN+2,,,REELS(M,C)
  209. Dec NUDGES : Proc NUDGETEXT
  210. Proc WINCHECK : Proc MONEYTEXT
  211. If NS=1 Then NUDGES=0
  212. Goto NTEST
  213. NUDOUT:
  214. NH=0 : LIGHT=0 : NUDGES=0 : Proc NUDGETEXT : Proc LIGHTFIVENUDGE
  215. End Proc
  216. Procedure BUTTONLIGHT
  217. Shared A,B,C,D,E,F
  218. Screen Copy 0,A,B,C,D To Physic(1),E,F
  219. Screen Copy 0,A,B,C,D To Logic(1),E,F
  220. End Proc
  221. Procedure MONEYTEXT
  222. Autoback 2
  223. Shared POUNDS,NPENCE,W,PAYOUT,NH,NS
  224. PO=PAYOUT/10
  225. For N=1 To PO
  226. If W>0 Then NPENCE=NPENCE+10 : NS=1 Else NS=0
  227. If NPENCE>90 Then PP=NPENCE/100 : NPENCE=NPENCE-(PP*100) : POUNDS=POUNDS+PP
  228. If NPENCE<0 Then POUNDS=POUNDS-1 : NPENCE=90
  229. POUND$=Str$(POUNDS) : TLP=Text Length(POUND$)
  230. Text 315-TLP,99,POUND$
  231. NPENCE$=" "+Str$(NPENCE) : TLN=Text Length(NPENCE$)
  232. Text 315-TLN,147,NPENCE$
  233. If W>0 Then Sam Play 1
  234. Next 
  235. If W>0 Then NH=0
  236. PAYOUT=0 : W=0 : Autoback 1
  237. End Proc
  238. Procedure WINCHECK
  239. Shared W,W(),PAYOUT,WIN()
  240. If RVALUE(1,W(1))<>RVALUE(2,W(2)) Then W=0 : Goto WINOUT
  241. For N=3 To 5
  242. If RVALUE(1,W(1))<>RVALUE(N,W(N)) Then W=N-1 : Exit 
  243. Next 
  244. If N=6 Then W=5
  245. PAYOUT=WIN(RVALUE(1,W(1)),W)
  246. WINOUT:
  247. If W=0 Then Proc CHECKBARS
  248. End Proc
  249. Procedure CHECKBARS
  250. Shared W(),PAYOUT,WIN(),W
  251. BR=0
  252. S=0 : For N=W(1)-1 To W(1)+1
  253. If REELS(1,N)=16 Then Inc BR : S=1
  254. Next N
  255. If S=0 Then Goto BL
  256. S=0 : For N=W(2)-1 To W(2)+1
  257. If REELS(2,N)=16 Then Inc BR : S=1
  258. Next N
  259. If S=0 Then Goto BL
  260. S=0 : For N=W(3)-1 To W(3)+1
  261. If REELS(3,N)=16 Then Inc BR : S=1
  262. Next N
  263. If S=0 Then Goto BL
  264. S=0 : For N=W(4)-1 To W(4)+1
  265. If REELS(4,N)=16 Then Inc BR : S=1
  266. Next N
  267. If S=0 Then Goto BL
  268. S=0 : For N=W(5)-1 To W(5)+1
  269. If REELS(5,N)=16 Then Inc BR : S=1
  270. Next N
  271. BL: If BR>2 Then PAYOUT=WIN(6,BR) : W=1 Else W=0
  272. End Proc
  273. Procedure NUDGECHECK
  274. Shared A,B,C,D,E,F,NH,W(),PX1,PX2,W,NS,NCOUNT,NVALUE(),LIGHT
  275. If NS=1 Then NH=0 : Goto NUOUT
  276. SR=20000 : NT=0 : For N=1 To 5
  277. Add NT,NVALUE(N,W(N))
  278. Next N
  279. Add NCOUNT,NT
  280. If NT=0 Then Goto HHH
  281. For N=1 To NT
  282. If PX2<310
  283. A=PX2 : B=10 : C=A+15 : D=33 : E=PX1 : F=10 : Proc BUTTONLIGHT
  284. Add SR,1000 : Sam Play %1111,3,SR
  285. Wait 10 : Add PX1,16 : Add PX2,16
  286. End If 
  287. Next N
  288. HHH:
  289. R=Rnd(3) : If R=3 Then NH=1 Else NH=0
  290. NUOUT:
  291. If NCOUNT>9 Then Proc NUDGE : NH=0
  292. If NH=0
  293. PX1=8 : PX2=166 : NCOUNT=0
  294. LIGHT=0 : Proc LIGHTMECHHOLD
  295. A=0 : B=2 : C=156 : D=43 : E=0 : F=2 : Proc BUTTONLIGHT
  296. End If 
  297. If NH=1
  298. LIGHT=1 : Proc LIGHTMECHHOLD
  299. End If 
  300. End Proc
  301. Procedure NUDGETEXT
  302. Shared NUDGES
  303. NUDGE$=" "+Str$(NUDGES) : TLN=Text Length(NUDGE$)
  304. Text 254-TLN,33,NUDGE$
  305. End Proc
  306. Procedure LIGHTSTART
  307. Shared LIGHT
  308. If LIGHT=0 Then A=67 : B=93
  309. If LIGHT=1 Then A=99 : B=125
  310. Screen Copy 0,105,A,146,B To Physic(1),265,227
  311. Screen Copy 0,105,A,146,B To Logic(1),265,227
  312. End Proc
  313. Procedure LIGHTTAKE
  314. Shared LIGHT
  315. If LIGHT=0 Then A=67 : B=93
  316. If LIGHT=1 Then A=99 : B=125
  317. Screen Copy 0,7,A,48,B To Physic(1),265,163
  318. Screen Copy 0,7,A,48,B To Logic(1),265,163
  319. End Proc
  320. Procedure LIGHTGAMBLE
  321. Shared LIGHT
  322. If LIGHT=0 Then A=67 : B=93
  323. If LIGHT=1 Then A=99 : B=125
  324. Screen Copy 0,56,A,97,B To Physic(1),265,195
  325. Screen Copy 0,56,A,97,B To Logic(1),265,195
  326. End Proc
  327. Procedure LIGHTFIVEHOLD
  328. Shared LIGHT,HOLD(),FIRST
  329. If LIGHT=0 Then A=163 : B=189
  330. If LIGHT=1 Then A=227 : B=253
  331. Screen Copy 0,7,A,244,B To Physic(1),7,227
  332. Screen Copy 0,7,A,244,B To Logic(1),7,227
  333. For N=1 To 5 : HOLD(N)=0 : Next N
  334. End Proc
  335. Procedure LIGHTHOLDOFF
  336. Shared M,HOLD()
  337. M=M-4
  338. For N=0 To 4
  339. If M=N Then A=(N*49)+7
  340. Next N
  341. Screen Copy 0,7,163,48,189 To Physic(1),A,227
  342. Screen Copy 0,7,163,48,189 To Logic(1),A,227
  343. Sam Play %1111,3,40000 : HOLD(M+1)=1
  344. End Proc
  345. Procedure LIGHTFIVENUDGE
  346. Shared LIGHT
  347. If LIGHT=0 Then A=131 : B=157
  348. If LIGHT=1 Then A=195 : B=221
  349. Screen Copy 0,7,A,244,B To Physic(1),7,195
  350. Screen Copy 0,7,A,244,B To Logic(1),7,195
  351. Screen Copy 0,7,A,244,B To Physic(1),7,50
  352. Screen Copy 0,7,A,244,B To Logic(1),7,50
  353. End Proc
  354. Procedure LIGHTMECHHOLD
  355. Shared LIGHT
  356. If LIGHT=0 Then A=73 : B=99
  357. If LIGHT=1 Then A=101 : B=127
  358. Screen Copy 0,152,A,179,B To Physic(1),167,9
  359. Screen Copy 0,152,A,179,B To Logic(1),167,9
  360. End Proc
  361. Procedure GAMBLE
  362. Shared A,B,C,D,E,F,LIGHT,GBL,NUDGES,GBLC
  363. LIGHT=0 : Proc LIGHTTAKE : Proc LIGHTGAMBLE
  364. For N=1 To 50
  365. Sam Play 3
  366. A=182 : B=101 : C=205 : D=113 : E=264 : F=26 : Proc BUTTONLIGHT
  367. A=207 : B=115 : C=230 : D=127 : E=264 : F=11 : Proc BUTTONLIGHT
  368. Wait 2 : M=Mouse Click : If M<>0 Then GBL=1 : Exit 
  369. A=182 : B=115 : C=205 : D=127 : E=264 : F=11 : Proc BUTTONLIGHT
  370. A=207 : B=101 : C=230 : D=113 : E=289 : F=11 : Proc BUTTONLIGHT
  371. Wait 2 : M=Mouse Click : If M<>0 Then GBL=0 : Exit 
  372. A=182 : B=101 : C=205 : D=113 : E=289 : F=11 : Proc BUTTONLIGHT
  373. A=207 : B=115 : C=230 : D=127 : E=289 : F=26 : Proc BUTTONLIGHT
  374. Wait 2 : M=Mouse Click : If M<>0 Then GBL=1 : Exit 
  375. A=182 : B=115 : C=205 : D=127 : E=289 : F=26 : Proc BUTTONLIGHT
  376. A=207 : B=101 : C=230 : D=113 : E=289 : F=42 : Proc BUTTONLIGHT
  377. Wait 2 : M=Mouse Click : If M<>0 Then GBL=0 : Exit 
  378. A=182 : B=101 : C=205 : D=113 : E=289 : F=42 : Proc BUTTONLIGHT
  379. A=207 : B=115 : C=230 : D=127 : E=264 : F=42 : Proc BUTTONLIGHT
  380. Wait 2 : M=Mouse Click : If M<>0 Then GBL=1 : Exit 
  381. A=182 : B=115 : C=205 : D=127 : E=264 : F=42 : Proc BUTTONLIGHT
  382. A=207 : B=101 : C=230 : D=113 : E=264 : F=26 : Proc BUTTONLIGHT
  383. Wait 2 : M=Mouse Click : If M<>0 Then GBL=0 : Exit 
  384. Next N
  385. If GBL=1 Then Add NUDGES,NUDGES Else NUDGES=0
  386. Proc NUDGETEXT
  387. Inc GBLC
  388. End Proc
  389. Procedure LOSER
  390. Shared A,B,C,D,E,F
  391. Sam Play %1111,4,10000
  392. Cls 1,0,0 To 157,44 : Ink 15,1
  393. Text 2,11,"     LOSER !!!"
  394. Text 2,24,"    Click Mouse"
  395. Text 2,37,"    To Replay..."
  396. Clear Key : Ink 15,0
  397. Repeat 
  398. Until Mouse Click<>0
  399. A=0 : B=0 : C=157 : D=44 : E=0 : F=0 : Proc BUTTONLIGHT
  400. End Proc
  401. Procedure GAMELOADSAVE
  402. Shared IK$,POUNDS,NPENCE
  403. If IK$="q" Then System 
  404. If IK$="l"
  405. Open In 1,"df0:FRUITSAVED-GAME.seq"
  406. Input #1,SG$
  407. Close 1
  408. N=Instr(SG$,"*")
  409. POUNDS=Val(Left$(SG$,N))
  410. NPENCE=Val(Right$(SG$,N))
  411. Proc MONEYTEXT
  412. Open Out 1,"df0:FRUITSAVED-GAME.seq"
  413. SG$="2*0" : Print #1,SG$
  414. Close 1
  415. End If 
  416. If IK$="s"
  417. SG$=Str$(POUNDS*1)+"*"+Str$(NPENCE)
  418. Open Out 1,"df0:FRUITSAVED-GAME.seq"
  419. Print #1,SG$
  420. Close 1
  421. POUNDS=2 : NPENCE=0 : Proc MONEYTEXT
  422. End If 
  423. Clear Key 
  424. End Proc
  425. Procedure REELCHEAT
  426. Shared W()
  427. Auto View On : Load Iff "df0:newreelcheat",0
  428. Screen To Front 0
  429. For N=0 To 4
  430. T=65*N : U=10*W(N+1) : Add U,26
  431. Ink 1 : Box T-4,U To T+61,U+10
  432. Next N
  433. Wait Key 
  434. Screen To Front 1 : Auto View Off 
  435. Load Iff "df0:newfruitbuttons",0
  436. Screen 1 : Ink 15
  437. End Proc
  438. Procedure SUPERNUDGE
  439. Shared REELS(),W(),NUDGES,LIGHT,Q,RVALUE()
  440. LIGHT=0 : Proc LIGHTFIVEHOLD : Inc LIGHT : Proc LIGHTFIVENUDGE
  441. NUDGES=40 : SNC=100 : Proc NUDGETEXT
  442. SNTEST:
  443. While Mouse Click=0 or M<9
  444. Dec SNC
  445. If SNC=0 Then Add SNC,100 : Sam Play 3 : Dec NUDGES : Proc NUDGETEXT
  446. If NUDGES=0 Then Goto SNUDOUT
  447. If NUDGES=0 Then Goto SNUDOUT
  448. M=Mouse Zone
  449. Wend 
  450. If M=0 Then Goto SNTEST
  451. If M>13 Then Goto SNUDGEUP
  452. SNUDGEDOWN:
  453. M=M-8 : BN=(3*M)-2
  454. Dec W(M) : If W(M)=0 Then W(M)=20
  455. A=W(M)-1 : B=W(M) : C=W(M)+1
  456. Bob BN,,,REELS(M,A)
  457. Bob BN+1,,,REELS(M,B)
  458. Bob BN+2,,,REELS(M,C)
  459. Goto SNTEST
  460. SNUDGEUP:
  461. M=M-13 : BN=(3*M)-2
  462. Inc W(M) : If W(M)=21 Then W(M)=1
  463. A=W(M)-1 : B=W(M) : C=W(M)+1
  464. Bob BN,,,REELS(M,A)
  465. Bob BN+1,,,REELS(M,B)
  466. Bob BN+2,,,REELS(M,C)
  467. Goto SNTEST
  468. SNUDOUT:
  469. Dec LIGHT : Proc LIGHTFIVENUDGE
  470. If RVALUE(1,W(1))=RVALUE(2,W(2)) and RVALUE(1,W(1))=7
  471. Proc WINCHECK : Proc MONEYTEXT
  472. End If 
  473. End Proc